home *** CD-ROM | disk | FTP | other *** search
/ Atari Mega Archive 2 / Atari Mega Archive CD - Volume 2.iso / 8bit / cislib_a / fuji.act < prev    next >
Text File  |  1995-04-22  |  3KB  |  176 lines
  1. ; Atari LOGO 
  2. ; Translated from the BASIC 
  3. ; by Leo Laporte, 10/19/83 
  4.  
  5.  
  6. PROC fuji() 
  7.  
  8.   BYTE top, bottom, xpos, cntr = [0] 
  9.  
  10.   BYTE ARRAY data =  
  11.   [ 37 41 43 45 46 29 48 35 49 37 50 
  12.     39 51 41 52 43 53 44 54 45 55 46  
  13.     55 47 56 48 57 48 57 49 58 49 58 
  14.     50 59 50 59 51 59 51 59 52 60 52 
  15.     60 52 60 52 60 52 60 52 60 52 60 ] 
  16.  
  17.   CARD x 
  18.  
  19.   color = 1 
  20.  
  21.   top = 5 
  22.   bottom = 61 
  23.  
  24.   FOR xpos = 80 TO 84 
  25.     DO 
  26.       Plot(xpos, top) 
  27.       Drawto(xpos, bottom) 
  28.       Plot(160-xpos, top) 
  29.       Drawto(160-xpos, bottom) 
  30.     OD 
  31.                             
  32.   FOR xpos = 86 TO 115 
  33.     DO 
  34.       IF xpos > 90 THEN 
  35.         top = data(cntr) cntr ==+ 1 
  36.       FI 
  37.  
  38.       bottom = data(cntr) cntr ==+ 1 
  39.       
  40.       Plot(xpos, top) 
  41.       Drawto(xpos, bottom) 
  42.       Plot(160-xpos, top) 
  43.       Drawto(160-xpos, bottom) 
  44.     OD 
  45.  
  46. RETURN 
  47.  
  48. PROC letters() 
  49.  
  50.    BYTE x,y,i 
  51.  
  52.    CARD cntr=[0] 
  53.  
  54.    BYTE ARRAY atari = [ 
  55.      49 55 61 76 81 87 93 104 0 
  56.      48 56 61 76 80 88 93 105 0 
  57.      47 57 61 76 79 89 93 106 0 
  58.      46 58 61 76 78 90 93 107 0 
  59.      45 50 54 59 67 70 77 82 86 91 93 96 103 108 0 
  60.      45 49 55 59 67 70 77 81 87 91 93 96 104 108 0 
  61.      45 48 56 59 67 70 77 80 88 91 93 96 104 108 0 
  62.      45 48 56 59 67 70 77 80 88 91 93 96 104 108 0 
  63.      45 48 56 59 67 70 77 80 88 91 93 96 104 108 0 
  64.      45 48 56 59 67 70 77 80 88 91 93 96 103 108 0 
  65.      45 59 67 70 77 91 93 107 0 
  66.      45 59 67 70 77 91 93 106 0 
  67.      45 59 67 70 77 91 93 105 0 
  68.      45 59 67 70 77 91 93 104 0 
  69.      45 48 56 59 67 70 77 80 88 91 93 96 100 105 0 
  70.      45 48 56 59 67 70 77 80 88 91 93 96 101 106 0 
  71.      45 48 56 59 67 70 77 80 88 91 93 96 102 107 0 
  72.      45 48 56 59 67 70 77 80 88 91 93 96 103 108 0 
  73.      45 48 56 59 67 70 77 80 88 91 93 96 104 109 0 
  74.      45 48 56 59 67 70 77 80 88 91 93 96 105 109 0 
  75.      1 1 ] 
  76.  
  77.    i = 66 
  78.    color = 1 
  79.  
  80.    DO 
  81.      x = atari(cntr) cntr ==+ 1 
  82.  
  83.      IF x = 0 THEN 
  84.         x = 112 
  85.         y = 115 
  86.         Plot(x,i) 
  87.         Drawto(y,i) 
  88.         i ==+ 1 
  89.  
  90.      ELSE y = atari(cntr) cntr ==+ 1 
  91.         IF x = 1 AND y = 1 THEN EXIT FI 
  92.         Plot(x,i) 
  93.         Drawto(y,i) 
  94.         IF x = 112 THEN i ==+ 1 FI 
  95.      FI 
  96.    OD 
  97.  
  98. RETURN 
  99.  
  100. PROC delay(BYTE time) 
  101.  
  102.   BYTE jifs = 20 
  103.  
  104.   jifs = 0 
  105.  
  106.   DO    
  107.   UNTIL (jifs >= time) 
  108.   OD 
  109.  
  110. RETURN 
  111.  
  112.  
  113. PROC jingle() 
  114.  
  115.   BYTE ARRAY music= 
  116.   [ 121  121  121  121  
  117.   91  96   108   121  0 ]  
  118.  
  119.   BYTE note, cntr = [0] 
  120.     
  121.   DO 
  122.     note = music(cntr) cntr ==+ 1 
  123.     IF note = 0 THEN EXIT FI 
  124.     SndRst() 
  125.     Delay(2) 
  126.     Sound(0, note, 10, 8) 
  127.     Delay(8) 
  128.   OD 
  129.   Delay(12) 
  130.   SndRst() 
  131.  
  132. RETURN 
  133.  
  134. PROC scroll() 
  135.  
  136.   BYTE wsync = 54282, 
  137.        vcount = 54283, 
  138.        clr = 53270, 
  139.        ch = 764, 
  140.        cntr, chgclr = [0], 
  141.        incclr, delay 
  142.  
  143.   DO 
  144.     FOR cntr = 1 TO 4  
  145.        DO 
  146.          incclr = chgclr 
  147.          FOR delay = 1 TO 9 DO OD 
  148.          DO 
  149.            wsync = 0 
  150.            clr = incclr 
  151.            incclr ==+ 1 
  152.          UNTIL vcount & 128 
  153.          OD 
  154.        OD 
  155.     chgclr ==+ 1 
  156.   UNTIL ch <> 255  
  157.   OD 
  158.  
  159. RETURN 
  160.  
  161.  
  162.  
  163.  
  164. PROC main() 
  165.  
  166.   Graphics(23) 
  167.    
  168.   fuji() 
  169.   letters() 
  170.   jingle() 
  171.   scroll() 
  172.  
  173. RETURN 
  174.  
  175.  
  176.